home *** CD-ROM | disk | FTP | other *** search
/ Business Shareware / Business Shareware.iso / start / wordproc / me_cd25 / mod.mut < prev    next >
Encoding:
Text File  |  1992-11-09  |  176 b   |  6 lines
  1.   ;; mod.mut : modulo
  2.   ;; (mod n base) == n modulo base == n - (n/base)*base
  3.   ;; C Durland    Public Domain
  4.  
  5. (defun mod (int n base) HIDDEN { (- n (* (/ n base) base)) } )
  6.